CAAJupiter_RadiusVector <-
function(JD){
.Call("CAAJupiter_RadiusVector", JD)
}
